home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / prelude / Dictionary.p < prev    next >
Text File  |  2002-01-10  |  3KB  |  80 lines
  1. pTempVar <- <primitive 110 12 >
  2. <primitive 112 pTempVar 1  " checkBucket: " \
  3.   #( #[ 16r10 16r21 16rF1 16r61 16rB1 16rF1 16r62 16rA1 16rF7 16r02 16r5D \
  4.         16rF3 16rF2 16r12 16rA6 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " currentKey " \
  8.   #( #[ 16r12 16rA2 16rF7 16r0B 16r12 16r0A 16r16 16r71 16r21 16rA2 16rF7 \
  9.         16r03 16r21 16r0A 16r31 16rF3 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " printString " \
  13.   #( #[ 16r20 16r20 16rA4 16rA9 16r30 16r0B 16r12 16rE2 16r01 16r11 16r21 \
  14.         16r20 16rAB 16rA9 16r0B 16r12 16r31 16r0B 16r12 16r22 16rA9 \
  15.         16r0B 16r12 16r32 16r0B 16r12 16rF3 16rD7 16r33 16r0B 16r12 \
  16.         16rF3 16rF5] \
  17.     #( ' ( ' ' @ ' ' ' ')'  )) >
  18.  
  19. <primitive 112 pTempVar 4  " next " \
  20.   #( #[ 16r12 16rA7 16rF1 16r71 16rA2 16rF7 16r04 16r21 16r0A 16r32 16rF3 \
  21.         16rF2 16r11 16r05 16r11 16rC7 16rF7 16r14 16r11 16r51 16rC0 \
  22.         16r61 16r20 16r11 16r0B 16r19 16rF1 16r71 16rA2 16rF7 16r04 \
  23.         16r21 16r0A 16r32 16rF3 16rF2 16rF9 16r1A 16rF2 16r5D 16rF3 \
  24.         16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 5  " first " \
  28.   #( #[ 16r51 16r05 16r11 16rB2 16rE1 16r02 16r0E 16r20 16r22 16r0B 16r19 \
  29.         16rF1 16r71 16rA2 16rF7 16r04 16r21 16r0A 16r32 16rF4 16rF3 \
  30.         16rB3 16rF2 16r5D 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 6  " findAssociation:inList: " \
  34.   #( #[ 16r22 16rE1 16r03 16r0A 16r23 16r0A 16r31 16r21 16rC9 16rF7 16r02 \
  35.         16r23 16rF4 16rF3 16rB3 16rF2 16r5D 16rF3 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 7  " removeKey:ifAbsent: " \
  39.   #( #[ 16r20 16r21 16r0B 16r1D 16r73 16r20 16r21 16r23 16rDE 16r74 16r24 \
  40.         16rA1 16rF7 16r03 16r22 16rA5 16rF3 16rF2 16r23 16r24 16rE0 \
  41.         16r03 16r22 16rA5 16rF4 16rD8 16r0A 16r32 16rF3 16rF5] \
  42.     #(  )) >
  43.  
  44. <primitive 112 pTempVar 8  " at:ifAbsent: " \
  45.   #( #[ 16r20 16r21 16r0B 16r1D 16r73 16r20 16r21 16r23 16rDE 16r74 16r24 \
  46.         16rA1 16rF7 16r03 16r22 16rA5 16rF3 16rF2 16r24 16r0A 16r32 \
  47.         16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 9  " at:put: " \
  51.   #( #[ 16r20 16r21 16r0B 16r1D 16r73 16r20 16r21 16r23 16rDE 16r74 16r24 \
  52.         16rA1 16rF7 16r0F 16r05 16r35 16rA0 16r21 16r0B 16r33 16r22 \
  53.         16r0B 16r34 16r74 16r23 16r24 16rBE 16rF8 16r05 16rF2 16r24 \
  54.         16r22 16r0B 16r34 16rF2 16r22 16rF3 16rF5] \
  55.     #(  )) >
  56.  
  57. <primitive 112 pTempVar 10  " getList: " \
  58.   #( #[ 16r20 16r21 16r0B 16r1E 16r73 16r10 16r23 16rB1 16r72 16r22 16rA1 \
  59.         16rF7 16r08 16r05 16r30 16rA0 16r72 16r10 16r23 16r22 16rD0 \
  60.         16rF2 16r22 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 11  " hashNumber: " \
  64.   #( #[ 16r21 16rFA 16r01 16r05 16r10 16rA3 16rC3 16r51 16rC0 16rF3 16rF5 \
  65.        ] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 12  " new " \
  69.   #( #[ 16r05 16r1E 16r05 16r11 16rB0 16r60 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 98 #Dictionary \
  73.   <primitive 97 #Dictionary #KeyedCollection #AmigaTalk:General/Dictionary.st \
  74.    #(  #hashTable #currentBucket #currentList ) \
  75.    #( #checkBucket: #currentKey #printString #next #first  \
  76.        #findAssociation:inList: #removeKey:ifAbsent: #at:ifAbsent: #at:put: #getList: #hashNumber:  \
  77.        #new  ) \
  78.   pTempVar 5 6 > #ordinary >
  79.  
  80.